home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / v.karten special (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  62 lines
  1. 10 rem  ** visitenkarten **
  2. 20 rem  * special version *
  3. 30 :
  4. 40 rem  (w) 10/1992 thomas kneissler
  5. 50 :
  6. 60 clr
  7. 70 poke 53280,15:poke 53281,15:poke 646,0
  8. 80 print chr$(147);chr$(14);
  9. 90 print tab(9)"*** [214][201][211][201][212][197][206][203][193][210][212][197][206] ***"
  10. 100 print tab(9)"** [211]pecial [214]ersion **"
  11. 110 print:print"... druckt [214]isitenkarten mit [200]ires-"
  12. 120 print"oder [203]oalabildern im [194]riefmarkenformat."
  13. 130 print"[206]achdem die eigentliche [203]arte auf das"
  14. 140 print"[197]inzelblatt gedruckt wurde, zieht der"
  15. 150 print"[196]rucker es auf die richtige [208]osition"
  16. 160 print"zurueck. [205]an drueckt eine [212]aste, und"
  17. 170 print"das [200]ardcopyprogramm wird geladen. [206]un"
  18. 180 print"laedt man das [194]ild, waehlt im [205]enue die"
  19. 190 print"[197]instellung '[205]icrohardcopy' und laesst"
  20. 200 print"das [194]ild ausdrucken. [198]ertig ist die [214]i-"
  21. 210 print"sitenkarte mit der ganz persoenlichen"
  22. 220 print"[206]ote!"
  23. 230 print:print:print:input"[214]or- u. [206]achname";b$
  24. 240 input"[211]trasse/[206]r.";c$
  25. 250 input"[208][204][218]/[215]ohnort";d$
  26. 260 input"[212]el.nummer";e$
  27. 270 :
  28. 280 open 1,4,2
  29. 290 print#1,chr$(27);"@";:rem reset
  30. 300 print#1,chr$(27);"l";chr$(3);:rem linker rand
  31. 310 print#1,chr$(27);"[205]";:rem elite ein
  32. 320 print#1,chr$(27);"x1";:rem nlq ein
  33. 330 print#1,chr$(27);"k";chr$(0);:rem nlq courier
  34. 340 :
  35. 350 print#1,"+  -  -  -  -  -  -  -  -  -  -  -  -  -  - +";
  36. 360 print#1," -  -  -  -  -  -  -  -  -  -  -  -  -  -  +"
  37. 370 print#1
  38. 380 print#1
  39. 390 print#1,tab(20);:for n=1 to 11:print#1," ";chr$(6);:next:print#1
  40. 400 print#1,tab(((24-len(b$))/2)+20);b$
  41. 410 print#1,tab(20);:for n=1 to 11:print#1," ";chr$(6);:next:print#1
  42. 420 print#1,
  43. 430 print#1,tab(20)"------------------------"
  44. 440 print#1,
  45. 450 print#1,chr$(27);"[211]";chr$(0);:rem superscript ein
  46. 460 print#1,tab(4);d$
  47. 470 print#1,tab(4);c$
  48. 480 print#1,tab(4)"[212]el.: ";e$
  49. 490 print#1,chr$(27);"[212]";:rem superscript aus
  50. 500 print#1,"+  -  -  -  -  -  -  -  -  -  -  -  -  -  - +";
  51. 510 print#1," -  -  -  -  -  -  -  -  -  -  -  -  -  -  +"
  52. 520 print#1,chr$(27);"l";chr$(6):rem linker rand
  53. 530 for n=1 to 6:print#1,chr$(27);"j";chr$(100);:next
  54. 540 print#1,chr$(27);"j";chr$(30);
  55. 550 close 1
  56. 560 :
  57. 570 print:print:print"[202]etzt wird '[205][213][204][212][201]-[200][193][210][196][195][207][208][217] 2'"
  58. 580 print"geladen."
  59. 590 print:print"  [196]ruecke eine [212]aste!"
  60. 600 get x$:if x$="" then 600
  61. 610 load"multi-hardcopy 2",8
  62.